\(\int \frac {\log (\frac {-b c+a d}{d (a+b x)}) \log (\frac {e (c+d x)}{a+b x})}{(a+b x) (c+d x)} \, dx\) [103]

Optimal result

Integrand size = 50, antiderivative size = 85 \[ \int \frac {\log \left (\frac {-b c+a d}{d (a+b x)}\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{(a+b x) (c+d x)} \, dx=\frac {\log \left (\frac {e (c+d x)}{a+b x}\right ) \operatorname {PolyLog}\left (2,1+\frac {b c-a d}{d (a+b x)}\right )}{b c-a d}-\frac {\operatorname {PolyLog}\left (3,1+\frac {b c-a d}{d (a+b x)}\right )}{b c-a d} \]

[Out]

ln(e*(d*x+c)/(b*x+a))*polylog(2,1+(-a*d+b*c)/d/(b*x+a))/(-a*d+b*c)-polylog(3,1+(-a*d+b*c)/d/(b*x+a))/(-a*d+b*c
)

Rubi [A] (verified)

Time = 0.09 (sec) , antiderivative size = 85, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.040, Rules used = {2588, 6745} \[ \int \frac {\log \left (\frac {-b c+a d}{d (a+b x)}\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{(a+b x) (c+d x)} \, dx=\frac {\operatorname {PolyLog}\left (2,\frac {b c-a d}{d (a+b x)}+1\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{b c-a d}-\frac {\operatorname {PolyLog}\left (3,\frac {b c-a d}{d (a+b x)}+1\right )}{b c-a d} \]

[In]

Int[(Log[(-(b*c) + a*d)/(d*(a + b*x))]*Log[(e*(c + d*x))/(a + b*x)])/((a + b*x)*(c + d*x)),x]

[Out]

(Log[(e*(c + d*x))/(a + b*x)]*PolyLog[2, 1 + (b*c - a*d)/(d*(a + b*x))])/(b*c - a*d) - PolyLog[3, 1 + (b*c - a
*d)/(d*(a + b*x))]/(b*c - a*d)

Rule 2588

Int[Log[v_]*Log[(e_.)*((f_.)*((a_.) + (b_.)*(x_))^(p_.)*((c_.) + (d_.)*(x_))^(q_.))^(r_.)]^(s_.)*(u_), x_Symbo
l] :> With[{g = Simplify[(v - 1)*((c + d*x)/(a + b*x))], h = Simplify[u*(a + b*x)*(c + d*x)]}, Simp[(-h)*PolyL
og[2, 1 - v]*(Log[e*(f*(a + b*x)^p*(c + d*x)^q)^r]^s/(b*c - a*d)), x] + Dist[h*p*r*s, Int[PolyLog[2, 1 - v]*(L
og[e*(f*(a + b*x)^p*(c + d*x)^q)^r]^(s - 1)/((a + b*x)*(c + d*x))), x], x] /; FreeQ[{g, h}, x]] /; FreeQ[{a, b
, c, d, e, f, p, q, r, s}, x] && NeQ[b*c - a*d, 0] && IGtQ[s, 0] && EqQ[p + q, 0]

Rule 6745

Int[(u_)*PolyLog[n_, v_], x_Symbol] :> With[{w = DerivativeDivides[v, u*v, x]}, Simp[w*PolyLog[n + 1, v], x] /
;  !FalseQ[w]] /; FreeQ[n, x]

Rubi steps \begin{align*} \text {integral}& = \frac {\log \left (\frac {e (c+d x)}{a+b x}\right ) \text {Li}_2\left (1+\frac {b c-a d}{d (a+b x)}\right )}{b c-a d}+\int \frac {\text {Li}_2\left (1-\frac {-b c+a d}{d (a+b x)}\right )}{(a+b x) (c+d x)} \, dx \\ & = \frac {\log \left (\frac {e (c+d x)}{a+b x}\right ) \text {Li}_2\left (1+\frac {b c-a d}{d (a+b x)}\right )}{b c-a d}-\frac {\text {Li}_3\left (1+\frac {b c-a d}{d (a+b x)}\right )}{b c-a d} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.02 (sec) , antiderivative size = 68, normalized size of antiderivative = 0.80 \[ \int \frac {\log \left (\frac {-b c+a d}{d (a+b x)}\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{(a+b x) (c+d x)} \, dx=\frac {\log \left (\frac {e (c+d x)}{a+b x}\right ) \operatorname {PolyLog}\left (2,\frac {b (c+d x)}{d (a+b x)}\right )-\operatorname {PolyLog}\left (3,\frac {b (c+d x)}{d (a+b x)}\right )}{b c-a d} \]

[In]

Integrate[(Log[(-(b*c) + a*d)/(d*(a + b*x))]*Log[(e*(c + d*x))/(a + b*x)])/((a + b*x)*(c + d*x)),x]

[Out]

(Log[(e*(c + d*x))/(a + b*x)]*PolyLog[2, (b*(c + d*x))/(d*(a + b*x))] - PolyLog[3, (b*(c + d*x))/(d*(a + b*x))
])/(b*c - a*d)

Maple [A] (verified)

Time = 3.80 (sec) , antiderivative size = 156, normalized size of antiderivative = 1.84

method	result	size
default	\(\frac {\frac {\ln \left (-\frac {\frac {e \left (d x +c \right ) b}{b x +a}-d e}{d e}\right ) \ln \left (\frac {e \left (d x +c \right )}{b x +a}\right )^{2}}{2}-\frac {\ln \left (\frac {e \left (d x +c \right )}{b x +a}\right )^{2} \ln \left (1-\frac {b \left (d x +c \right )}{d \left (b x +a \right )}\right )}{2}-\ln \left (\frac {e \left (d x +c \right )}{b x +a}\right ) \operatorname {Li}_{2}\left (\frac {b \left (d x +c \right )}{d \left (b x +a \right )}\right )+\operatorname {Li}_{3}\left (\frac {b \left (d x +c \right )}{d \left (b x +a \right )}\right )}{a d -c b}\)	\(156\)

[In]

int(ln((a*d-b*c)/d/(b*x+a))*ln(e*(d*x+c)/(b*x+a))/(b*x+a)/(d*x+c),x,method=_RETURNVERBOSE)

[Out]

1/(a*d-b*c)*(1/2*ln(-(e*(d*x+c)/(b*x+a)*b-d*e)/d/e)*ln(e*(d*x+c)/(b*x+a))^2-1/2*ln(e*(d*x+c)/(b*x+a))^2*ln(1-b
*(d*x+c)/d/(b*x+a))-ln(e*(d*x+c)/(b*x+a))*polylog(2,b*(d*x+c)/d/(b*x+a))+polylog(3,b*(d*x+c)/d/(b*x+a)))

Fricas [F]

\[ \int \frac {\log \left (\frac {-b c+a d}{d (a+b x)}\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{(a+b x) (c+d x)} \, dx=\int { \frac {\log \left (\frac {{\left (d x + c\right )} e}{b x + a}\right ) \log \left (-\frac {b c - a d}{{\left (b x + a\right )} d}\right )}{{\left (b x + a\right )} {\left (d x + c\right )}} \,d x } \]

[In]

integrate(log((a*d-b*c)/d/(b*x+a))*log(e*(d*x+c)/(b*x+a))/(b*x+a)/(d*x+c),x, algorithm="fricas")

[Out]

integral(log(-(b*c - a*d)/(b*d*x + a*d))*log((d*e*x + c*e)/(b*x + a))/(b*d*x^2 + a*c + (b*c + a*d)*x), x)

Sympy [F]

\[ \int \frac {\log \left (\frac {-b c+a d}{d (a+b x)}\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{(a+b x) (c+d x)} \, dx=\frac {b \int \frac {\log {\left (\frac {c e}{a + b x} + \frac {d e x}{a + b x} \right )}^{2}}{a + b x}\, dx}{2 \left (a d - b c\right )} + \frac {\log {\left (\frac {a d - b c}{d \left (a + b x\right )} \right )} \log {\left (\frac {e \left (c + d x\right )}{a + b x} \right )}^{2}}{2 a d - 2 b c} \]

[In]

integrate(ln((a*d-b*c)/d/(b*x+a))*ln(e*(d*x+c)/(b*x+a))/(b*x+a)/(d*x+c),x)

[Out]

b*Integral(log(c*e/(a + b*x) + d*e*x/(a + b*x))**2/(a + b*x), x)/(2*(a*d - b*c)) + log((a*d - b*c)/(d*(a + b*x
)))*log(e*(c + d*x)/(a + b*x))**2/(2*a*d - 2*b*c)

Maxima [F]

\[ \int \frac {\log \left (\frac {-b c+a d}{d (a+b x)}\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{(a+b x) (c+d x)} \, dx=\int { \frac {\log \left (\frac {{\left (d x + c\right )} e}{b x + a}\right ) \log \left (-\frac {b c - a d}{{\left (b x + a\right )} d}\right )}{{\left (b x + a\right )} {\left (d x + c\right )}} \,d x } \]

[In]

integrate(log((a*d-b*c)/d/(b*x+a))*log(e*(d*x+c)/(b*x+a))/(b*x+a)/(d*x+c),x, algorithm="maxima")

[Out]

integrate(log((d*x + c)*e/(b*x + a))*log(-(b*c - a*d)/((b*x + a)*d))/((b*x + a)*(d*x + c)), x)

Giac [F]

\[ \int \frac {\log \left (\frac {-b c+a d}{d (a+b x)}\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{(a+b x) (c+d x)} \, dx=\int { \frac {\log \left (\frac {{\left (d x + c\right )} e}{b x + a}\right ) \log \left (-\frac {b c - a d}{{\left (b x + a\right )} d}\right )}{{\left (b x + a\right )} {\left (d x + c\right )}} \,d x } \]

[In]

integrate(log((a*d-b*c)/d/(b*x+a))*log(e*(d*x+c)/(b*x+a))/(b*x+a)/(d*x+c),x, algorithm="giac")

[Out]

integrate(log((d*x + c)*e/(b*x + a))*log(-(b*c - a*d)/((b*x + a)*d))/((b*x + a)*(d*x + c)), x)

Mupad [F(-1)]

Timed out. \[ \int \frac {\log \left (\frac {-b c+a d}{d (a+b x)}\right ) \log \left (\frac {e (c+d x)}{a+b x}\right )}{(a+b x) (c+d x)} \, dx=\int \frac {\ln \left (\frac {e\,\left (c+d\,x\right )}{a+b\,x}\right )\,\ln \left (\frac {a\,d-b\,c}{d\,\left (a+b\,x\right )}\right )}{\left (a+b\,x\right )\,\left (c+d\,x\right )} \,d x \]

[In]

int((log((e*(c + d*x))/(a + b*x))*log((a*d - b*c)/(d*(a + b*x))))/((a + b*x)*(c + d*x)),x)

[Out]

int((log((e*(c + d*x))/(a + b*x))*log((a*d - b*c)/(d*(a + b*x))))/((a + b*x)*(c + d*x)), x)